home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue39 / slimmer / D4.LOG < prev    next >
Encoding:
Text File  |  1998-09-09  |  1.8 KB  |  48 lines
  1. When there are no global dynamic vars, init and final
  2. code is the same in D4 as in D3:
  3.  
  4. initialization: initialization
  5. :0043B1EC 832DF0D7430001 sub    dword ptr [0043D7F0],000000
  6. :0043B1F3 7314           jnb    testinit.28 (0043B209)
  7. testinit.25:  AutoGlobalP := pointer(longint(@UnitGlobal) +
  8. :0043B1F5 B8ECD74300     mov    eax,0043D7EC
  9. :0043B1FA 83C004         add    eax,00000004
  10. :0043B1FD A3E8D74300     mov    [0043D7E8],eax
  11. testinit.26:  UnitGlobal := 0;
  12. :0043B202 33C0           xor    eax,eax
  13. :0043B204 A3ECD74300     mov    [0043D7EC],eax
  14. testinit.28: finalization
  15. :0043B209 C3             ret
  16.  
  17.  
  18. Finalization:  AutoGlobalP := pointer(longint(@UnitGlobal)
  19. :0043B1A8 55             push   ebp
  20. :0043B1A9 8BEC           mov    ebp,esp
  21. :0043B1AB 33C0           xor    eax,eax
  22. :0043B1AD 55             push   ebp
  23. :0043B1AE 68E3B14300     push   0043B1E3
  24. :0043B1B3 64FF30         push   fs:dword ptr [eax]
  25. :0043B1B6 648920         mov    fs:[eax],esp
  26. :0043B1B9 FF05F0D74300   inc    dword ptr [0043D7F0]
  27. :0043B1BF 7514           jne    INITTEST.0043B1D5 (0043B1D5
  28. :0043B1C1 B8ECD74300     mov    eax,0043D7EC
  29. :0043B1C6 83C004         add    eax,00000004
  30. :0043B1C9 A3E8D74300     mov    [0043D7E8],eax
  31. testinit.34:  UnitGlobal := 0;
  32. :0043B1CE 33C0           xor    eax,eax
  33. :0043B1D0 A3ECD74300     mov    [0043D7EC],eax
  34. :0043B1D5 33C0           xor    eax,eax
  35. :0043B1D7 5A             pop    edx
  36. :0043B1D8 59             pop    ecx
  37. :0043B1D9 59             pop    ecx
  38. :0043B1DA 648910         mov    fs:[eax],edx
  39. :0043B1DD 68EAB14300     push   0043B1EA
  40. :0043B1E2 C3             ret
  41. :0043B1E3 E96480FCFF     jmp    @HandleFinally
  42. :0043B1E8 EBF8           jmp    INITTEST.0043B1E2 (0043B1E2
  43. testinit.37: end.
  44. :0043B1EA 5D             pop    ebp
  45. :0043B1EB C3             ret
  46.  
  47.  
  48.